
 
                                                   !  
 
                                             25@A8O  1 . 2 
 
 
 
                           @0B:>5  @C:>2>4AB2>  ?>;L7>20B5;O
 
 
 
   >   -   ?@83;0H5=85  A8AB5<K  ( 3>B>2=>ABL  @01>BK  A  48A:><  " " ) 
 
   > : 
 
   >   -   ?@83;0H5=85  A8AB5<K  ( 3>B>2=>ABL  @01>BK  A  48A:><  " " ) 
 
 
 
                                540:B>@  :><0=4=>9  AB@>:8
 
 
 
    01>B0NB  :;028H8  :   ,  , , !,  - 
 
                                         -   :;028H8  @540:B8@>20=8O. 
 
   ;028H8                    :    %  8  - 
 
                                         -   872;5GL  ?@54K4CICN  :><0=4C  87  1CD5@0. 
 
 
 
                          07<5B:0  48A:0  ( D>@<0B8@>20=85) 
 
 
 
   5@54  =0G0;><  @01>BK  A  +  48A:><  53>  =5>1E>48<>  @07<5B8BL- 
 
 70?8A0BL  A;C651=CN  8=D>@<0F8N  ( >BD>@<0B8@>20BL) . 
 
   $>@<0B  @07<5B:8  2  !    ,   ?>;=>ABLN  A>2?0405B  A  D>@<0B><  M Y . 
 
   $>@<0B8@>20=85  48A:0  2K?>;=O5BAO  :><0=4>9: 
 
 
 
 > F R M   A : 
 
 1 0 - +     ?;>E>9  1;>:  2  1 0   4>@>6:5  A25@EC  \ 
 
 2 3 - -     ?;>E>  >BD>@<0B8@.   2 3   4>@>6:0        -   ?>2B>@8BL  D>@<0B  48A:0
 
 
 
   @8  C40G=><  D>@<0B8@>20=88  CB8;8B0  I N I   2K7K205BAO  02B><0B8- 
 
 G5A:8  ( A>740=85  ?CAB>3>  :0B0;>30)   8  48A:  :  @01>B5  3>B>2. 
 
 
 
                                     0B0;>3  D09;>2
 
 
 
   0B0;>3  ( A?8A>:)   D09;>2  <>6=>  2K720BL  CB8;8B>9  : 
 
 
 
 > D I R     ( D I R   A :     8;8    D I R   B :     8  B. 4. )   
 
 A > D I R / n   - 2K2>4  :0B0;>30  =0  ?5G0BL  ( n - G8A;>  :>;>=>=>:  =0  ;8AB5) 
 
     ?>  C<>;G0=8N  @01>B0  2545BAO  A  B5:CI8<  CAB@>9AB2><  (   >   ) . 
 
 
 
 
 
                                 >?8@>20=85  D09;>2
 
 
 
   A > C P Y   : F I L N A M E   F I L N A M . B I N       \ 
 
   A > C P Y   : F I L N A M E   A : F I L N A M . B I N     >   -   :>?8@>20=85  A  ;5=BK  =0  48A:  
 
   A > C P Y   : F I L N A M E   B : F I L N A M . B I N   / 
 
   
 
 > C P Y   F I L N A M . B I N   : F I L E N A M E     \ 
 
 > C P Y   A : F I L N A M . B I N   : F I L E N A M E   >   -   :@?8@>20=85  A  48A:0  =0  ;5=BC
 
 > C P Y   B : F I L N A M . B I N   : F I L E N A M E / 
 
 
 
 > C P Y   A : F I L N A M . B I N   B : 
 
 > C P Y   B : F I L N A M . B I N   A : F I L E N A M   >   -   :@?8@>20=85  A  48A:0  =0  48A:
 
 
 
 > C P Y / W   F I L N A M . B I N   F I L E N A M   >   -   :@?8@>20=85  =0  >4=><  ?@82>45
 
 
 
   <O  D09;0  =0  48A:5  <>65B  8<5BL  4;8==C  8<5=8  4>  6   A8<2>;>2  , 
 
 0  @0AH8@5=85  8<5=8  -   4>  3 - E  A8<2>;>2. 
 
 
 
 
 
                                 >?8@>20=85  48A:>2
 
 
 
 > C P Y   A :   B :       -   3@C??>2>5  :>?8@>20=85
 
 
 
   >7<>6=>  ?@8<5=5=85  :;NG59  :   / Q   8  / N 
 
 
 
 / Q -   1C45B  B@51>20BLAO  ?>4B25@645=85  :>?8@>20=8O  :064>3>  D09;0
 
         ( >B:07  >B  :>?8@.   D09;0-   N ,   ;N10O  4@C30O  :;028H0- :0:  " 40" ) 
 
 / N -   70?@5B  :>?8@>20=8O  D09;>2,   :>B.   C65  8<5NBAO  =0  48A:5. 
 
 
 
   P . S .   :   48A:8  ;CGH5  :>?8@>20BL  2  @0AH8@5==>9  ?0<OB8. 
 
 
 
 
 
                                   @C385  :><0=4K
 
   
 
 > R E N   F I L N A M . O L D   F I L N A M . N E W         - ?5@58<5=>20=85  D09;>2
 
 > D E L   F I L E                                           - C40;5=85  D09;0
 
 A > I N I   B :                                               - 8=8F80;870F8O  :0B0;>30
 
 A > B :   \   
 
 B > A :   /                                                   -   A<5=0  @01>G53>  48A:0
 
 > "Y P   F I L E . T X T                                   -   2K2>4  B5:AB.   D09;0  =0  M:@. 
 
 > P R I   T E S T . M                                       -   2K2>4  A>45@6.   D09;0  =0  ?5G0BL
 
 > M O N                                                     -   2K8>4  2  <>=8B>@  
 
 ?     ! %%                                                -   2>72@0B  2  O !  
 
 
 
 
 
 
 
 
 
                                 C;LB>2>9  @568<
 
 
 
 
 
 > 1 0 0 0                                                 - 2K40G0  =0  M:@0=  3 2   A;>2  ?0<OB8
 
 
 
 > 1 0 0 0   1 2 7 0 0   1 0 1   1 0 4 3 4 1   1 3 7   1 0 0 4   -   70?8AL  :>4>2  A  04@.   1 0 0 0 
 
 
 
 > ; 1 0 0 0                                                     -   70?CA:  ?@>3@0<<K  A  04@.   1 0 0 0 
 
                     5A;8  04@5A  =5  C:070=  B>  AB0@B  1C45B  A  04@5A0,   :>B>@K9
 
                     E@0=8BLAO  ?>  04@5AC  2 6 4 . 
 
 
 
 > ; 2 0 0 0   A R G 1   A R G 2   A R G 3   . . .             - 70?CA:  ?@>3@0<<K  A  ?5@540G59
 
                                                                   59  0@3C<5=B>2
 
 
 
 > P U T   F I L E   [ N A   L E N ]                           - 70?8AL  CG- :0  ?0<OB8  =0  48A:, 
 
                   ?>  C<>;G0=8N  =0G.   04@.   8  4;8=0  -   87  OG55::   2 6 4   8  2 6 6 . 
 
 
 
 > G E T   F I L N A M   [ 2 0 0 0 ]                           - 703@C7:0  ?@>3@0<<K  [ ?>  ?@8=C- 
 
                                                                   48B.   04@. ] 
 
 
 
 
 
                            C:>2>4AB2>  A8AB5<=>3>  ?@>3@0<8AB0
 
 
 
                                     @>3@0<<=K5  70?@>AK
 
 
 
   $>@<0BK  ?@>3@0<<=KE  70?@>A>2  ?>;=>ABLN  A>2?040NB  A  D>@<0B><
 
 >4=>8<5==KE  70?@>2>2  87  !    ,   8  A;54>20B5;L=>  <>6=>  8A?>;L- 
 
 7>20BL  AB0=4.   B@0=A;OB>@K  A  <0:@>0AA5<1;5@0  8  A8AB5<=K5  <0:@>- 
 
 181;8>B5:8. 
 
   A5  70?@>AK  2>72@0I0NB  A>AB>O=85  >H81:8  2  18B5  " !"   545=8F59. 
 
     >B;8G85  >B    ,   !    =5B  2>72@0B0  :>40  >H81:8  2  109B5  5 2 , 
 
 B. :.   >=  8A?>;L7C5BAO  <>=8B>@><  - 1 0 . 
 
     !    8A?>;L7- AO  B@8  D>@<0B0  ?@>3@0<<=KE  70?@>A>2: 
 
 1 .   @>3@.   70?@>AK  A  :>4><  3 7 4   ?><5I0NB  2  <;04H89  109B  R 0   =><5@
 
     :0=0;0  ,   0  2  AB0@H89  -   DC=:F8>=0;L=K9  :>4. 
 
                       % % % % % % % % % % % %,% % % % % % % % % % %%
 
             R 0   =   %1 5 . . C O D E . . 8 %7 . . C H A N . . 0 %
 
                       % % % % % % % % % % % %4% % % % % % % % % % %%
 
 2 .   @>3@.   70?@>AK  2B>@>3>  D>@<0B0  8A?>;L7CNB  :><0=4C  "  3 7 5 : 
 
                                   % % % % % % % % % % % %,% % % % % % % % % % %%
 
             R 0   >   A R E A :   %      C O D E         %      C H A N       %
 
                                   % % % % % % % % % % % %4% % % % % % % % % % %%
 
                                                       A R G 1 
 
                                                       . . . . 
 
                                                       A R G n 
 
 3 .   AB0;L=K5  ?@>3@.   70?@>AK  ?5@540NB  0@3.   8  ?>;CG0NB  @57C;LB0BK
 
     2  @538AB@0E  >1I53>  =07=0G5=8O  8;8  2  AB5:5. 
 
 
 
   1>7=0G5=8O:   A R E A   -   04@5A  1;>:0  0@3C<5=B>2  E M T . 
 
                             C H A N   -   =><5@  :0=0;0.   -B>  ;>3.   845=B8D8:0B>@  D09;0
 
                                           :>B.   8A?- AO  <>=8B>@><  ?@8  2K?>;=5=.   70?@0- 
 
                                           H8205<KE  >?5@0F89.   ><5@  :0=0;0  <>65B  1KBL
 
                                           0 - 1 5 .   064K9  D09;  ;>38G.   A2O70=  A  >?@.   :0- 
 
                                           =0;><  8  ?@8  >1@0I.   :  D09;C  4>AB0B>G=>  C:0- 
 
                                           70BL  =><5@  A>>B2.   :0=0;0. 
 
                             D B L K   -   <0AA82  8=D>@<.   2  :>40E  R A D I X   ( 8<O  CAB@- 20, 
 
                                           8<O  D09;0  8  53>  @0AH8@.   -   4   A;>20) . 
 
                             W C N T   -   :>;.   A;>2  4;O  ?5@540G8  2/ 87  1CD5@  ?@8  2K- 
 
                                           ?>;=5=.   >?5@0F88  22>40/ 2K2>40. 
 
 
 
 
 
                                         ;0280BC@0
 
 
 
   E "  3 4 0       -   >68405B  =060B.   :;02. ,   55  :>4  2  R 0 . 
 
   E M T   3 4 5       -   ?>4A:07:0  =0  M:@0=  ,   >6840=.   AB@>:8  A  :;0280BC@K, 
 
                           22545==0O  AB@>:0  7025@H05BAO  109B><  0   : 
 
 M O V   # L I N E , - ( S P )                                     . . . . . . 
 
 M O V   # 1 , - ( S P )                           L I N E :     . B L K W     3 2       ; 04@.   22>48<>9  AB@. 
 
 M O V   # P R O M T , - ( S P )                   P R O M T :   . A S C I Z   / s t r > ; ?>4A:07:0
 
 C L R   - ( S P )                                               . E V E N 
 
 E M T   3 4 5 
 
 . . . . 
 
 
 
   H81:0  :   22545==0O  ?CAB0O  AB@>:0
 
 
 
                                   K2>4  =0  M:@0=
 
 
 
   E M T   3 4 1     -   A8<2>;  =0  M:@0=  87  R 0 . 
 
   E M T   3 5 1     -   2K2>4  =0  M:@0=  AB@>:8  / G5@57  E M T   3 4 1 / A  =0G.   04@.   2
 
                         R 0   4>  109B0  0   8;8  2 0 0   ,   ?@8  0   4>102;.   :>4K  1 2 , 1 5 . 
 
 
 
 
 
                               0?@>AK  >1I.   =07=0G5=8O
 
 
 
   E M T   3 7 5     -   CAB0=.   04@5A  ?/ ?  >1@01- :8  4   8  1 0   25:B>@>2  A  : 
 
                         !  =   0     -   ?@5@K2.   ?>  25:B>@C  4 
 
                         !  =   1     -   ?@5@K2.   ?>  25:B>@C  1 0 
 
 M O V       # A R E A , R 0                                 . . . . . 
 
 E M T   3 7 5                               A R E A :     . B Y T E   0 , 3 
 
 . . . .                                                   . W O R D           ; 04@5A  ?/ ?
 
 
 
   >72@0B  87  ?/ ?  :   R E T U R N 
 
 
 
 E M T   3 5 4     -   2>72@0B  2  R 0   25@E=.   3@0=.   ?0<OB8  / 4 0 0 0 0   8;8  7 0 0 0 0 / 
 
 E M T   3 5 0     -   2>72@0I5B  C?@.   <>=8B>@C  !  
 
 
 
 
 
                              01>B0  A  D09;0<8
 
 
 
   1 .   E M T   3 6     -   !  A0<0  ?5@504@5AC5BAO  :  4@0925@C  48A:0. 
 
   2 .   !?>A>1,   ?>72>;ONI89  ?>1;>G=>  >1@010BK20BL  D09;K  ;N1>3>
 
         @07<5@0.   ;O  4>ABC?0  :  D09;C  ?@>3@0<<0  4>;6=0  A2O70BL
 
         MB>B  D09;  A  >4=8<  87  :0=0;>2  22>40/ 2K2>40  A  ?><>ILN
 
         . L O O K I P   8;8  . E N T E R .   >?CAB8<>  >4=>2@5<5==>  8A?>;L7>20BL
 
         4>  1 6   :0=0;>2  ( 0   -   1 5 ) .   >A;5  >B:@KB8O  :0=0;0  ?@>3@0<<0
 
         <>65B  ?@>872>48BL  GB. / 70?.   ;N1KE  1;>:>2  D09;0  70?@>A0<8
 
         . R E A D W   8  . W R I T W .   ;O  7025@H5=8O  @01>BK  A  D09;><  8  >A2>- 
 
         1>645=8O  :0=0;0  =5>1E.   70?@>A8BL  . P U R G E   8;8  . C L O S E . 
 
 
 
 
 
   . L O O K U P    % %!  . R E A D W / . W R I T W    % %!  . P U R G E   -   1@01>B:0  ACI- 3>  D09;0
 
                               % % % % % % % % %! % % % % % % %%
 
 
 
   . E N T E R    % %!  . W R I T W / . R E A D W    % %!  . C L O S E   -   !>740=85  =>2>3>  D09;0
 
                               % % % % % % % % %! % % % % % % %%
 
 
 
 . L O O K U P   a r e a , c h a n , d b l k     -     A2O7.   C:07.   :0=0;  A  ACI.   D09;><  4>
 
                                                       2K7>20  70?@>A>2  . C L O S E   8;8  . P U R G E . 
 
                                                       >A;5  2K?>;=.   2  R 0   4;.   D09;0  2  1;. 
 
 M O V     # A R E A , R 0                                           . . . . . . . 
 
 E M T     3 7 5                                 A R E A :       . B Y T E   < =><0@  :0=0;0> , 1 
 
 . . . . . . .                                                   . W O R D   < 04@.   8<5=8  2  R A D I X - 5 0 >   
 
 
 
                           H81:0:   =5B  D09;0  A  C:07.   8<5=5<,   A1>9  GB5=. 
 
 
 
 . R E A D W   a r e a , c h a n , b u f , w c n t , b l k   -   ?5@540G0  704.   G8A;0  A;>2  ?>  
 
                                                                 C:07.   :0=0;C  2  ?0<OBL. 
 
 M O V     # A R E A , R 0                                           . . . . . . . 
 
 E M T     3 7 5                                 A R E A :       . B Y T E   < =><5@  :0=0;0> , 1 0 
 
 . . . . . . .                                                   . W O R D   < =><5@  1;>:0> 
 
                                                                 . W O R D   < 04@.   1CD.   2  ?0<OB8> 
 
                                                                 . W O R D   < G8A;>  A;>2> 
 
                           H81:0:   A1>9  GB. 
 
 
 
 . P U R G E   c h a n   -   >A2>1.   :0=0;.   @8  >B:@KB88  :0=0;0  A  ?><.   . E N T E R   
 
                             A>>B25BAB2.   2@5<5==K9  D09;  1C45B  C40;5=
 
 M O V     # < 3 * 4 0 0 > + < =><5@  :0=0;0> , R 0 
 
 E M T     3 7 4 
 
                           H81:0:   A1>9  GB. / 70?. 
 
 
 
 . E N T E R   a r e a , c h a n , d b l k , l e n   -   @575@28@C5B  =0  48A:5  >1;.   @07<5@><
 
                                                       " l e n "   8  A>74.   2@5<.   D09;,   :>B.   AB0- 
 
                                                         =>28BAO  ?>AB.   ?>A;5  . C L O S E . 
 
     A;8  0@3.   " l e n " = 0   B>  >B2>48BLAO  =0  48A:5  1 / 2   A2>1.   >1;0AB8, 
 
 5A;8:   - 1   B>  2AO  =081.   A2>1.   >1;0ABL.     R 0 :   @0<5@  14;>:0E. 
 
 
 
 M O V     # A R E A , R 0                                       . . . . . . . 
 
 E M T     3 7 5                           A R E A :     . B Y T E   < =><5@  :0=0;0> , 2 
 
 . . . . . . .                                           . W O R D   < 04@5A  8<5=8  2  R A D I X - 5 0 > 
 
                                                         . W O R D   < 4;8=0  D09;0:   0 / - 1 > 
 
                       H81:0:   =5B  <5AB0  =0  48A:5  8;8  A1>9  22/ 2K2
 
 
 
 . W R I T W   a r e a , c h a n , s u f , w c n t , b l k   -   704.   G8A;>  A;>2  87  ?0<OB8  ?>
 
                                                                 C:07.   :0=0;C  =0  48A:. 
 
 M O V     # A R E A , R 0                                         . . . . . . 
 
 E M T     3 7 5                       A R E A :       . B Y T E   < =><.   :0=. > , 1                   
 
 . . . . . . .                                         . W O R D   < =><.   1;>:0> 
 
                                                       . W O R D   < 04@.   1KD5@0> 
 
                                                       . W O R D   < G8A;>  A;>2> 
 
                     H81:0:   A1>9  70?. 
 
 
 
 . C L O S E   c h a n   -   7025@H.   >1<5=  =0  C:07.   :0=0;5.   @8  . E N T E R   - 
 
                             2@5<.   D09;  AB0=.   ?>AB.   8;8  C40;.   ACI.   D09;. 
 
 M O V     # > 6 * 4 0 0 > + < =><0@  :0=. > , R 0 
 
 E M T     3 7 4 
 
                     H81:0:   A1>9  GB. / 70?. 
 
 
 
 . R E N A M E   a r e a , c h a n , d b l k   -   87<.   8<5=8  D09;0. 
 
 
 
 M O V     # A R E A , R 0                               . . . . . . . . .         
 
 E M T     3 7 5                       A R E A :         . B Y T E   < =><.   :0=. > , 4 
 
 . . . . . .                                             . W O R D   < 04@.   1;>:0  8<5=> 
 
               H. :   A1>9  GB. / 70?. 
 
 
 
 . D E L E T E   a r e a , c h a n , d b l k   -   C40;.   D09;0  87  :0B0;>30. 
 
 
 
 M O V     # A R E A , R 0                             . . . . . . . . 
 
 E M T     3 7 5                     A R E A :         . B Y T E   < =><.   :0=. > , 6 
 
 . . . . . . .                                         . W O R D   < 04@.   8<.   D09;0  2  R A D I X - 5 0 > 
 
             H. :   A1>9  GB. / 70?. 
 
 
 
                               =CB@.   70?@>AK  !  
 
 
 
 . M A G   -   >1@0I5=85  :  <03=.   A>  AB0=4.   1;.   ?0@0<5B@>2        /   E M T   3 7   / 
 
 
 
 . O C T   -   A>4.   R 0   =0  M:@0=  2>A<5@8G.   G8A;><  2  6   ?>78F89  /   "1 2 0   / 
 
 
 
 . D E C   -         - / / -                     45AOB.   G8A;><  2  5   ?>78F89        /   "1 2 1   / 
 
 
 
 . D E C 0 -         - / / -             - / / -         ,   83=>@8@CO  =57=0G.   0         /   "1 2 2   / 
 
 
 
 . F N A M E   -   2K2.   =0  M:@.   8<5=8  D09;0.   R 3   C:07.   =0  1;>:  87  
 
                   4 - E  A;>2  A  8<5=5<  2  R A D I X - 5 0 .                               /   "1 2 3   / 
 
 
 
 . B L   -   =0  M:@0=  A8<2>;  ?@>15;0                                                /   "1 2 4   / 
 
 
 
 . N L   -   ?5@52>4  :C@A>@0  =0  =0G.   A;54.   AB@>:8                      /   "1 2 5   / 
 
 
 
             @8<5@  ?@>3@0<<K  :>?8@>20=85  D09;0  ;N1>9  4;8==K
 
 
 
 C O P Y : 
 
 ; >B:@KB85  2E.   D09;0. 
 
                           . L O O K U P     # A R E A , # 0 , # I N P U T 
 
                           B C S             E R R O R 
 
 ; A>740=85  2KE>4=>3>. 
 
                           . E N T E R       # A R E A , # 1 , # O U T P U T , R 0 
 
                           B C S             E R R O R 
 
                           C L R             R 1             ; :>?8@.   A  0 - 3>  1;>:0. 
 
 ; 2  F8:;5  :>?8@.   >48=  1;.   2  2 5 6   A;>2. 
 
 L O O P : 
 
 ; G8B05<  1;>:  2  1CD5@. 
 
                           . R E A D W     # A R E A , # 0 , # B U F , # 2 5 6 . , R 1 
 
                           B C S           E R R O R 
 
 ; 70?8AL  1CD5@0  =0  48A:. 
 
                           . W R I T W     # A R E A , # 1 , # B U F , # 2 5 6 , R 1 
 
                           B C S           E R R O R 
 
                           I N C           R 1             ; A;54.   1;>:. 
 
                           S O B           R 0 , L O O P 
 
 ; 2KE.   D09;  70:@KBL. 
 
                           . C L O S E     # 1 
 
                           . P U R G E     # 0 
 
                           . E X I T 
 
 ; ?@8  >H81:5  2KE  D09;  =5  70:@K20BL. 
 
 E R R O R :               . P U R G E     # 1 
 
                           . P U R G E     # 0 
 
                           . E X I T 
 
 
 
 I N P U T :     . R A D 5 0     / A   I N P U T   D A T /   ; 8<O  2E.   D09;0. 
 
 O U T P U T     . R A D 5 0     / A   O U T P U T D A T /   ; 8<O  2KE.   D09;0. 
 
 A R E A :       . B L K W       6 
 
 B U F F         . B L K W       2 5 6 .                     ; 1CD5@  4;O  >4=>3>  1;>:0. 
 
                 . E N D         C O P Y 
 
 
 
 
 
                           $C=:F88  ?@5>1@07.   8<5=  D09;>2
 
 
 
 . F N R A D   -   ?5@5:>48@.   8<5=8  87  A S C I I   2  R A D - 5 0                 /   E M T   1 3 0   / 
 
                   R 2   -   04@.   8<5=8  2  A S C I I 
 
                   R 3   -       - / / -               R A D - 5 0   ( 1C45B  ?><5I5=>  2  4   A;>20) 
 
                   R 4   -   8<O  48A:0  2  R A D - 5 0     ( ?>4AB.   ?>  C<>;G. ) 
 
                   R 5   -   @0AH.   8<5=8                  ( ?>4AB.   ?>  C<>;G0=. ) 
 
 . F N B I N   -   ?5@5:>48@.   8<5=8  87  A S C I I   2  R A D - 5 0   ?>  
 
                   C<>;G.   8<5=8  48A:0  8  @0AH8@5=8O  . B I N             /   E M T   1 3 1   / 
 
                   R 2   -   04@.   8<5=8  2  A S C I I 
 
                   R 3   -       - / / -               R A D - 5 0   ( 1C45B  ?><5I5=>  2  4   A;>20) 
 
 . F N C O D   -   ?5@5:>4.   8<5=8  87  A S C I I   2  R A D - 5 0 ?>  C<>;G.   
 
                   8<5=8  48A:0.                                                             /   E M T   1 3 2   / 
 
                   R 2   -   04@.   8<5=8  2  A S C I I 
 
                   R 3   -       - / / -               R A D - 5 0   ( 1C45B  ?><5I5=>  2  4   A;>20) 
 
 . F N D E C   -   45:>4.   8<5=8  D09;0  87  R A D - 5 0   2  A S C I I .           /   "  1 3 3   / 
 
                   R 2   -   04@.   8<5=8  2  A S C I I     ( 1C45B  ?><5I5=>  2  AB@.   A  0 ) 
 
                   R 3   -   04@.   1;>:0  87  4 - E  A;>2  A  8<5=5<  2  R A D - 5 0 
 
 
 
                                       @5>1@07.   B8?>2
 
 
 
 . I T O C 8   -   ?@5>1@  G8A;0  2  8 - CN  AB@>:C.                               /   "  1 4 0   / 
 
                   R 0   -   G8A;>
 
                   R 1   -   04@.   AB@>:8  @07C;LB0B0
 
 . I T O C 1 0   -   ?@5>1@  G8A;0  2  1 0 - CN  AB@>:C.                           /   "  1 4 1   / 
 
                   R 0   -   G8A;>
 
                   R 1   -   04@.   AB@>:8  @07C;LB0B0
 
 . C 8 T O I   -   ?@5>1@07.   8 - 9  AB@>:8  2  G8;>.                             /   "  1 4 2   / 
 
                   R 0   -   04@.   2E.   AB@>:8,   7025@H- AO  :>4><  0 
 
                   R 1   -   G8;>. 
 
 . C 1 0 T O I   -   ?@5>1@07.   1 0 - 9  AB@>:8  2  G8;>.                         /   "  1 4 3   / 
 
                   R 0   -   04@.   2E.   AB@>:8,   7025@H- AO  :>4><  0 
 
                   R 1   -   G8;>. 
 
 
 
                                       @5>1@07.   A S C I I   8  R A D - 5 0 
 
 
 
 . A S C R A D   -   ?@5>1@.   3 - E  A8<2.   A S C I I   2  1   A;>2>  R A D - 5 0   /   E M T   1 4 4   / 
 
                     R 2   -   04@.   1 - 3>  A8<2.   2  A S C I I 
 
                     R 3   -   04@.   A;>20  @57C;LB0B0. 
 
           / R 2   C25;.   =0  3   =>  =5  40;55  :>40  0 ,   R 3   C25;.   =0  2 / 
 
 . R A D A S C   -   ?@5>1@.   1   A;>20  R A D - 5 0   2  3   A8<2.   A S C I I       /   E M T   1 4 5   / 
 
                     R 2   -   04@.   2KE.   <0AA.   87  3 - E  109B
 
                     R 3   -   04@.   A;>20  2  R A D - 5 0 . 
 
 
 
                                           @C385  >?5@0F88  
 
 
 
 . M U L   -   1 6 - 18B=>5  C<=>65=85  R 1   =0  R 0 ,   @57.   2  R 0           /   E M T   1 5 0   / 
 
 . D I V   -     - / / -     45;5=.   R 1 / R 1 ,   @57.   2  R 1 ,   >AB.   2  R 0       /   E M T   1 5 1   / 
 
 . L P R I N T     -   2K2.   109B0  R 0   =0  ?5G0BL  /   /                     /   "  1 6 0   / 
 
 . ""            -   =0?@02;5=85  "  3 4 1   =0  M:@0=                        /   "  1 6 1   / 
 
 . L P             -   B>  65  =0  ?5G0BL                                                  /   "  1 6 2   / 
 
 . D L O O K U P   -   2>72@.   2  R 0   @07<5@  48A:0  2  1;>:. 
 
     M O V     # A R E A , R 0                             . . . . . . .       
 
     I O T                                 A R E A :       . B Y T E   < =><5@  ?@82>40> , 0 
 
     . . . . . 
 
 
 
 . D R E A D       -   GB5=.   704.   G8;0  A;>2  A  48A:0
 
     M O V     # A R E A , R 0                             . . . . . . 
 
     I O T                                 A R E A :       . B Y T E   < =><5@  ?82>40> , 1 
 
     . . . .                                               . W O R D   < =><.   1;>:0> 
 
                                                           . W O R D   < 04@.   1CD.   2  ?0<OB8> 
 
                                                           . W O R D   < G8A;>  A;>2> 
 
 . D W R I T E     -   70?8AL  704.   G8A;0  A;>2  =0  48A:
 
     M O V     # A R E A , R 0                             . . . . . . 
 
     I O T                                 A R E A :       . B Y T E   < =><5@  ?82>40> , 1 
 
     . . . .                                               . W O R D   < =><.   1;>:0> 
 
                                                           . W O R D   < 04@.   1CD.   2  ?0<OB8> 
 
                                                           . W O R D   < G8A;>  A;>2> 
 
     
 
 